home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / PASCAL / ALLSWAGS.ZIP / SWAGN-R.ZIP / NETWORK.SWG / 0043_Netware 3.11 API Library - NetTTS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-11-29  |  2.0 KB  |  90 lines
  1. {
  2.             ╔══════════════════════════════════════════════════╗
  3.             ║     ┌╦═══╦┐┌╦═══╦┐┌╦═══╦┐┌╦═╗ ╦┐┌╦═══╦┐┌╔═╦═╗┐   ║
  4.             ║     │╠═══╩┘├╬═══╬┤└╩═══╦┐│║ ║ ║│├╬══      ║      ║
  5.             ║     └╩     └╩   ╩┘└╩═══╩┘└╩ ╚═╩┘└╩═══╩┘   ╩      ║
  6.             ║                                                  ║
  7.             ║     NetWare 3.11 API Library for Turbo Pascal    ║
  8.             ║                      by                          ║
  9.             ║                  S.Perevoznik                    ║
  10.             ║                     1996                         ║
  11.             ╚══════════════════════════════════════════════════╝
  12. }
  13.  
  14. Unit NetTTS;
  15.  
  16. Interface
  17.  
  18. Uses NetConv;
  19.  
  20. Function TTSIsAvailable : byte;
  21. {True, if TTS is available}
  22.  
  23. Function TTSAbortTransaction : byte;
  24. {Abort current transaction}
  25.  
  26. Function TTSBeginTransaction : byte;
  27. {Begin new transaction}
  28.  
  29. Function TTSEndTransaction (Var transNumber : longInt) : byte;
  30. {End current transaction}
  31.  
  32. Function TTSTransactionStatus(transNumber : longint) : byte;
  33. {Return transaction status}
  34.  
  35. Implementation
  36.  
  37. Uses Dos;
  38.  
  39.  
  40. Function TTSIsAvailable : byte;
  41. var r : registers;
  42.  
  43. begin
  44.   r.AH := $C7;
  45.   r.AL := $02;
  46.   intr($21,r);
  47.   TTSIsAvailable := r.AL;
  48. end;
  49.  
  50. Function TTSAbortTransaction : byte;
  51. var r : registers;
  52. begin
  53.   r.AH := $C7;
  54.   r.AL := $03;
  55.   intr($21,r);
  56.   TTSAbortTransaction := r.AL;
  57. end;
  58.  
  59. Function TTSBeginTransaction : byte;
  60. var r : registers;
  61. begin
  62.   r.AH := $C7;
  63.   r.AL := $00;
  64.   intr($21,r);
  65.   TTSBeginTransaction := r.AL;
  66. end;
  67.  
  68. Function TTSEndTransaction ( Var transNumber : longInt) : byte;
  69. var r : registers;
  70. begin
  71.    r.AH := $C7;
  72.    r.AL := $01;
  73.    intr($21,r);
  74.    transNumber := Int2Long(r.DX,r.CX);
  75.    TTSEndTransAction := r.AL;
  76. end;
  77.  
  78.  
  79. Function TTSTransactionStatus(transNumber : longint) : byte;
  80. var r : registers;
  81. begin
  82.   r.AH := $C7;
  83.   r.AL := $04;
  84.   long2Int(transNumber,r.DX,r.CX);
  85.   intr($21,r);
  86.   TTSTransactionStatus := r.AL;
  87. end;
  88.  
  89. end.
  90.